home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / umbrella demo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  740b  |  33 lines
  1. 50 data1,255,128,15,255,240,127,255,254,255,255,255,0,24,0,0,24,0,0,24,0
  2. 60 data0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,128,0,15,0,0,0,0,0,0,0,0
  3. 70 data0,0,0,0,0,0,0,0,0,0,0,0,0,0
  4. 80 for bl = 832 to 832 + 62
  5. 90 read d
  6. 100 poke bl,d
  7. 110 next bl
  8. 111 data0,24,0,0,24,0,0,24,0,0,60,0,0,60,0,0,60,0,0,126,0,0,126,0
  9. 112 data0,126,00,0,255,0,0,24,0,0,24,0,0,24,0,0,24,128,0,15,0,0,0,0,0,0,0,0
  10. 113 data0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11. 114 for bl = 896 to 896 + 62
  12. 115 readd
  13. 116 poke bl,d
  14. 117 next bl
  15. 120 poke 2040,13
  16. 130 v=53248
  17. 140 poke v+0,180
  18. 150 poke v+1,50
  19. 160 poke v+16,peek(v+16)and254
  20. 190 poke v+39,7
  21. 200 poke v+23,peek(v+23)or1
  22. 210 poke v+29,peek(v+29)or1
  23. 220 poke v+27,peek(v+27)and254
  24. 230 poke v+21,peek(v+21)or1
  25. 300 for vp = 50 to 230 step .2
  26. 310 poke v+1,vp
  27. 320 next
  28. 325 poke 2040,14
  29. 330 for vp =230 to 50 step -2
  30. 340 poke v+1,vp
  31. 350 next
  32. 370 goto 120
  33.